home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / misc / electetc.lzx / flow.opl < prev    next >
Text File  |  2006-02-20  |  648b  |  21 lines
  1. PROC flow:
  2.     LOCAL a%,b%,c%,d%,fa(7),fb(5),n,v
  3.     fa(1)=1 :fa(2)=0.001 :fa(3)=0.000001 :fa(4)=0.028316847 :fa(5)=0.000016387 :fa(6)=0.004546090 :fa(7)=0.001
  4.     fb(1)=3600 :fb(2)=60 :fb(3)=1
  5.     do
  6.     rem a%=1 :b%=1 :c%=1 :d%=1
  7.     dINIT "Flow Rate Calculations"
  8.     dPOSITION 1,0
  9.     dFLOAT v,"Value :",0,1000000
  10.     dTEXT "","From....",$100
  11.     dCHOICE a%,"Volume Unit:","mü,dmü,cmü,ftü,inü,gal(UK),litres"
  12.     dCHOICE b%,"Per Time Unit:","sec,min,hrs"
  13.     dTEXT "","To......",$100
  14.     dCHOICE c%,"Volume Unit:","mü,dmü,cmü,ftü,inü,gal(UK),litres"
  15.     dCHOICE d%,"Per Time Unit:","sec,min,hrs"
  16.     DIALOG
  17.     n=((v*fa(a%)*fb(b%))/fa(c%))/fb(d%)
  18.     print n
  19.     UNTIL v=0
  20. ENDP
  21.